home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
UpTime Volume 1 #3
/
utv1n3s1.d64
/
ps boot
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-28
|
1KB
|
39 lines
10 poke53280,0:poke53281,0:print"[147]
20 [153]" sys(NULL)aper (NULL)prites
30 print" [156]by [202]on [208]erregaux
40 [153]" (NULL)his program will print out three"
50 [153]" sprites at a time on any standard
60 print" [195]ommodore dot-matrix printer. [208][193][208][197][210]
70 [153]" (NULL)(NULL)(NULL)right$(NULL)val(NULL) gives you the option of print-
80 print" ing a sprite pattern in either standard";
90 print" or multicolor format. [212]he sprites are
100 [153]" printed from the (NULL)right$len-right$right$'s bank 1
110 print" graphic memory.
130 [153]" (NULL)hen a sprite file is loaded into
140 print" memory, it will always be loaded at
150 [153]" memory address 8192 ($2000), regard-
160 print" less of the sprite file's real load
170 [153]" address.
172 print" [158][208]ress any key for more"
173 print" [154][[198]8][158] for [213]p[212]ime"
174 get a$:if a$="" then 174
175 if a$="[140]" then sys (8*4096)+4
200 print"[147][156] [212]he program is set up for a 1526
210 [153]" printer. (NULL)hould you need to make"
220 [153]" any mods to the code, the printer"
230 [153]" routines reside in lines 330-410."
232 [153]" (NULL)he linefeed spacing is set to 0 in"
234 [153]" line 352. (NULL)ou may need to change this"
235 [153]" line in order for the program to work"
236 [153]" with your printer. (NULL)lease refer to"
237 [153]" your printer or interface manuals for"
238 [153]" the necessary modifications."
300 [153]" sys(NULL)ress any key to load (NULL)aper (NULL)prites"
310 [153]" cont[asc8]sys for (NULL)p(NULL)ime"
320 [161] a$:[139] a$[178]"" [167] 320
330 [139] a$[178]"restore" [167] [158] (8[172]4096)[170]4
500 [153]"loadstopload"[199](34)"0:paper sprites"[199](34)",8":[151] 198,3:[151] 631,19
510 [153]"run:"
520 [151] 632,13:[151] 633,13
530 [151] 44,64:[151] 16[172]1024,0:[162]